﻿<!-- #Include file="Channel_Article.asp" -->
<%
Cid = Trim(Request("ClassID"))
if Cid = "" Then
	Call Format_Redirect(InstallDir & ChannelDir)
	Response.End()
End if
strFileName = "List.asp?ClassID=" & Cid
Select Case Web_IsCreatIndexShow
Case True
	IndexFile = InstallDir & Web_IndexShowFile
Case Else
	IndexFile = InstallDir & IndexShow
End Select
Select Case ChannelIsCreateHtml
Case True
	ChannelIndexFile = InstallDir & ChannelDir & "/Index" & ChannelHtmlExtName
Case Else
	ChannelIndexFile = InstallDir & ChannelDir & "/Index.asp"
End Select
sqlClass = "select * from Class where ChannelID=" & ChannelID & " And ClassID=" & Cid & " Order By ClassOrder Asc,ClassID Asc"
Call Exe_Conn(rsClass,sqlClass,1)
If rsClass.eof And rsClass.bof Then
	Call Format_Redirect(ChannelIndexFile)
	Response.End()
Else
	ClassNames = rsClass("ClassName")
	ImageWidth = rsClass("ImageWidth")
	ImageHeight = rsClass("ImageHeight")
	CuteNums  =  rsClass("CuteNums")
	Columns = rsClass("Columns")
	PageNum = rsClass("PageNum")
	HtmlFileDir = rsClass("HtmlFileDir")
	ClassChildStr = rsClass("ClassChildStr")
	ClassPic = rsClass("ClassPic")
	MetaKeyWord = rsClass("MetaKeyWord")
	MetaDescript = rsClass("MetaDescript")
	Mobanid = rsClass("Moban")
	Skinid = rsClass("SkinID")
	TemplateID = rsClass("TemplateID")
	StrShowPath = "·您的位置：<a href='"&IndexFile&"' class='LinkPath'>本站首页</a>&nbsp;&gt;&nbsp;<a href='"&ChannelIndexFile&"' class='LinkPath'>"&ChannelTit&"首页</a>"&ShowPath(Cid)
	rsClass.Close
	Set rsClass = Nothing
End If
If ChannelIsCreateHtml = True Then
	Dim TmpCls
	Set TmpCls = New Cls_FileSystem
	If TmpCls.Chk_Exist(InstallDir & ChannelDir & "/" & HtmlFileDir & "Index" & ChannelHtmlExtName,1) Then
		Response.Redirect(InstallDir & ChannelDir & "/" & HtmlFileDir & "Index" & ChannelHtmlExtName)
	Else
		Response.Write "&#25991;&#20214;&#27809;&#26377;&#29983;&#25104;&#65292;&#26080;&#27861;&#35775;&#38382;"
	End If
	Set TmpCls = Nothing
Else
	Call ShowChannelList(Cid,False)
End If
If IsConn = False Then Call CloseConn()
%>